home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / APPLFIND.M < prev    next >
Encoding:
Text File  |  1994-01-17  |  1.3 KB  |  49 lines
  1. (*
  2. Gruppe: Persönliche
  3. ID  : P23918@AC2
  4. Wg. : Proc FindApplication
  5. Von : Frank Storm @ AC2 (So, 16.01.94 12:36)
  6. An  : Thomas Tempelmann @ M
  7.  
  8. Hallo Thomas!
  9.  
  10. Auch auf die Gefahr hin, daß dieser Fehler schon seit Jahren behoben ist, oder
  11. daß dieser Fehler ja gar keiner ist: Funktioniert die Prozedur FindApplication
  12. aus dem Modul AESMisc inzwischen? Der Fehler ist mir vor ca. zwei Jahren mal
  13. aufgefallen, und ich habe die Prozedur damals neugeschrieben. Die Prozedur
  14. findet nämlich keine Programme. Wenn ich sie mit
  15. *)
  16.  
  17. MODULE T;
  18.  
  19. FROM AESMisc IMPORT FindApplication;
  20. FROM SYSTEM IMPORT ASSEMBLER;
  21. FROM InOut IMPORT ReadString, WriteString, WriteLn, WriteCard;
  22.  
  23. VAR id: CARDINAL;
  24.     success: BOOLEAN;
  25.     s: ARRAY [0..9] OF CHAR;
  26.  
  27. BEGIN
  28.   LOOP
  29.     ReadString (s);
  30.     IF (CAP(s[0]) = 'Q') AND (s[1] = '') THEN RETURN END;
  31.     (*ASSEMBLER BREAK END;*)
  32.     FindApplication (s, id, success);
  33.     IF success THEN
  34.       WriteString ("found. ID = ");
  35.       WriteCard (id, 0);
  36.     ELSE
  37.       WriteString ("not found.")
  38.     END;
  39.     WriteLn;
  40.   END
  41. END T.
  42.  
  43. (*
  44. aufrufe, so ist success FALSE, egal ob MM2Shell läuft oder nicht.
  45. Die interne Versionsnummer von AESMisc ist bei mir V#0051. Ich frage auch
  46. deswegen, weil wohl die wenigsten diese Prozedur benutzt haben dürften.
  47.  
  48. mfg Frank
  49. *)